clear all
set more off
cd "/Users/yasenov/Dropbox (IPL)/fee waiver/"

************
************
************
* fig 3
import excel "si/fig3.xlsx", sheet("Sheet1") firstrow clear
twoway (rcap min max n, horizontal) ///
	(scatter n est), ///
	xline(0) ///
	legend(off) ///
	xlabel(-.01 "-1" 0 "0" .01 "1" .02 "2" .03 "3" .04 "4") ///
	xtitle("Impact of the Fee Wavier Reform on Naturalization Rates" "(percentage points)") ///
	ylabel(1 `" "English Speaker" "(N=335,188)" "' 2 `" "Non-English Speaker" "(N=125,091)" "' 4 `" "Lowest Income" "(N=152,576)" "' 5 `" "Middle Income" "(N=154,143)" "' 6 `" "Highest Income" "(N=154,371)" "' 8 `" "High School or Less" "(N=276,696)" "' 9 `" "Some College" "(N=184,393)" "' 11 `" "Low Naturalization Propensity" "(N=310,721)" "' 12 `" "Medium Naturalization Propensity" "(N=308,318)" "' 13 `" "High Naturalization Propensity" "(N=306,734)" "' 15 `" "Full Sample" "(N=461,089)" "' ) ///
	ytitle("")
graph save "si/fig3.gph", replace
graph export "si/fig3.png", replace	
